home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbasicpg.zip / FOR-6.BAS < prev    next >
BASIC Source File  |  1989-08-31  |  165b  |  12 lines
  1. ' FOR-6.BAS
  2. ' This program demonstrates the use of STEP.
  3.  
  4. CLS
  5.  
  6. FOR i% = 15 TO 1 STEP -1
  7.     COLOR i%
  8.     PRINT "Falling!"
  9.     SOUND (50 * i%), 1
  10. NEXT i%
  11.  
  12.